Applying the steps learnt in part three on the search experiment:
EyEduGetExamples(experiment.type = "search")
## [1] TRUE
raw.data.path <- paste(getwd(),"/exampleDataSearchExperiment-master/", sep = "")
EyEduImportEyetribeData()
## [1] "Importing file: Danvers.tsv - number 1 out of 6"
## [1] "Importing file: Jones.tsv - number 2 out of 6"
## [1] "Importing file: Maximov.tsv - number 3 out of 6"
## [1] "Importing file: Parker.tsv - number 4 out of 6"
## [1] "Importing file: Prince.tsv - number 5 out of 6"
## [1] "Importing file: Raven.tsv - number 6 out of 6"
## [1] "Done!"
Plotting a single trial:
EyEduPlotTrial(participant.nr = 1,
trial.nr = 1)
Applying a filter and plotting the same trial with filtered data:
EyEduLowPassFilter()
## [1] "Low-pass filtering: Danvers.tsv - number 1 out of 6"
## [1] "Low-pass filtering: Jones.tsv - number 2 out of 6"
## [1] "Low-pass filtering: Maximov.tsv - number 3 out of 6"
## [1] "Low-pass filtering: Parker.tsv - number 4 out of 6"
## [1] "Low-pass filtering: Prince.tsv - number 5 out of 6"
## [1] "Low-pass filtering: Raven.tsv - number 6 out of 6"
EyEduPlotTrial(participant.nr = 1,
trial.nr = 1,
show.filtered = TRUE)
Looks much less squiggly now :P
Detect fixations:
Now plotting a different trial to keep things from geting boring.
EyEduDetectFixationsIDT(dispersion.var = 90,duration.var = 6,use.filtered = F)
## [1] "Fixation detection for: Danvers.tsv - number 1 out of 6"
## [1] "Fixation detection for: Jones.tsv - number 2 out of 6"
## [1] "Fixation detection for: Maximov.tsv - number 3 out of 6"
## [1] "Fixation detection for: Parker.tsv - number 4 out of 6"
## [1] "Fixation detection for: Prince.tsv - number 5 out of 6"
## [1] "Fixation detection for: Raven.tsv - number 6 out of 6"
## [1] "Done!"
EyEduPlotTrial(participant.nr = 1,
trial.nr = 3)
Now, checking whether fixation detection was succesful on different trials:
EyEduPlotDiagnostics(participant.nr = 1,
trial.nr = 1,sample.length = 2500, show.filtered = F)
EyEduPlotDiagnostics(participant.nr = 1,
trial.nr = 2,sample.length = 2500, show.filtered = F)
EyEduPlotDiagnostics(participant.nr = 1,
trial.nr = 3,sample.length = 2500, show.filtered = F)
Visually, it seems like the detection didnt work quite as well for this participant. Lets check out another participant:
EyEduPlotDiagnostics(participant.nr = 4,
trial.nr = 1,sample.length = 2500, show.filtered = F)
Not great either, but maybe a bit better than for participant 1?
Plotting AOIs:
EyEduImportAoIs(append.aois = FALSE,
delete.existing.aois = TRUE ,
screen.align.x = 1024,
screen.align.y = 768)
## [1] "Importing aoi file: C_104CON.txt - number 1 out of 20"
## [1] "Importing aoi file: C_104INCON.txt - number 2 out of 20"
## [1] "Importing aoi file: C_10CON.txt - number 3 out of 20"
## [1] "Importing aoi file: C_10INCON.txt - number 4 out of 20"
## [1] "Importing aoi file: C_120CON.txt - number 5 out of 20"
## [1] "Importing aoi file: C_120INCON.txt - number 6 out of 20"
## [1] "Importing aoi file: C_12CON.txt - number 7 out of 20"
## [1] "Importing aoi file: C_12INCON.txt - number 8 out of 20"
## [1] "Importing aoi file: C_20CON.txt - number 9 out of 20"
## [1] "Importing aoi file: C_20INCON.txt - number 10 out of 20"
## [1] "Importing aoi file: C_43CON.txt - number 11 out of 20"
## [1] "Importing aoi file: C_43INCON.txt - number 12 out of 20"
## [1] "Importing aoi file: C_4CON.txt - number 13 out of 20"
## [1] "Importing aoi file: C_4INCON.txt - number 14 out of 20"
## [1] "Importing aoi file: C_62CON.txt - number 15 out of 20"
## [1] "Importing aoi file: C_62INCON.txt - number 16 out of 20"
## [1] "Importing aoi file: C_68CON.txt - number 17 out of 20"
## [1] "Importing aoi file: C_68INCON.txt - number 18 out of 20"
## [1] "Importing aoi file: C_92CON.txt - number 19 out of 20"
## [1] "Importing aoi file: C_92INCON.txt - number 20 out of 20"
EyEduAssignFixationsAois()
## [1] "Assigning fixations to AoIs for participant: Danvers.tsv - number 1 out of 6"
## [1] "Assigning fixations to AoIs for participant: Jones.tsv - number 2 out of 6"
## [1] "Assigning fixations to AoIs for participant: Maximov.tsv - number 3 out of 6"
## [1] "Assigning fixations to AoIs for participant: Parker.tsv - number 4 out of 6"
## [1] "Assigning fixations to AoIs for participant: Prince.tsv - number 5 out of 6"
## [1] "Assigning fixations to AoIs for participant: Raven.tsv - number 6 out of 6"
## [1] "Done!"
EyEduPlotTrial(participant.nr = 1,
trial.nr = 3,
fix.color = "green",
show.filtered = FALSE,
aoi.color = "black")
Get fixation summary:
EyEduGetFixationSummary()
load("exampleDataSearchExperiment-master/fixation_summary.Rda")
fixation.summary[100:109,]
## fix.start fix.end fix.duration fix.pos.x fix.pos.y fixation.index
## 100 21420172 21420306 134 1169.6689 410.4060 5
## 101 21420339 21420588 249 1013.9551 640.8259 6
## 102 21420688 21420789 101 1035.0666 556.8980 7
## 103 21424584 21424867 283 867.2221 165.6333 1
## 104 21424917 21425034 117 818.8656 421.9963 2
## 105 21425084 21425284 200 563.9520 449.9662 3
## 106 21425317 21425417 100 811.7601 418.8178 4
## 107 21425450 21425567 117 823.8944 410.7243 5
## 108 21425600 21425700 100 885.8485 409.5367 6
## 109 21429729 21429912 183 823.5517 162.2458 1
## trial.index stimulus.id aoi.index aoi.line.index aoi.label participant.name
## 100 5 2 NA NA NA Jones
## 101 5 2 NA NA NA Jones
## 102 5 2 NA NA NA Jones
## 103 6 3 NA NA NA Jones
## 104 6 3 NA NA NA Jones
## 105 6 3 NA NA NA Jones
## 106 6 3 NA NA NA Jones
## 107 6 3 NA NA NA Jones
## 108 6 3 NA NA NA Jones
## 109 7 10 NA NA NA Jones
## participant.nr
## 100 4
## 101 4
## 102 4
## 103 4
## 104 4
## 105 4
## 106 4
## 107 4
## 108 4
## 109 4
Note: somehow drawing AOIs doesnt work and the assigned AOIs dont show up in the fixation summary … :/